FLTIO I DENT 


1/23/67- 


*- 


"*" 


SBRR MACRO D- 


BRR* D(i)- 


ENDM- 




* FLOATING POINT I/O MODULE- 


*- 




BRU 


I SON (ISO- 


* BRU 


SICN <SIC>- 


BRU 


FFI <52>- 


BRU 


FFO (53)- 


*- 




♦INTERNAL TO 


STRING GONVERS 


*-' 




SISCN SBRM 


ISCS- 


LDA 


UE- ' 


SBRM 


SUSR- 


LDP 


0*2-' 


STP 


XWR3- 


* LDA 


UNPTRl- 


SUB 


UNPTR- 


ADM 


1*2- 


LDA 


=UNPTR- 


LDB 


=XWR3-' 


SBRM 


GJRSU- 


BRS 


111- 


ISCS ZRO 


IOLINK- 


STP 


Al- 


STX 


A3- 


STP 


GET1- 


LDA 


= 15B- 


SKN 


Al- 


CLA- 




STA" 


SIGN- 


CLA- 




STA" 


ERRFLG- 


STA 


OVDGTS- 


SBRM 


GETFMT- 


SBRM 


SETPTR- 


LDA 


IOW- 


SKE 


=0- - 


BRU 


NFRFMT- 


LDA 


*=9 


STA 


IOD- 


LDA 


= 16- 


STA 


I OW- 


SBRM 


RNDEXP 


LDP 


GET1- 


STP 


Al- 


LDA 


I ODEXP 


SKG 


=8- 


SKG 


= -1- 


BRU 


IOEXP- 


CNA- 






w 



<wwAs\a* , C*+ 



■<** uvw^uf* oZXj&tJr 



FREE FORMAT- 



CALLS ROUND SUBROUTINE- 



EXAMINE MAGNITUDE OF THE NUMBER- 



ADM 


IOD- 


BRU 


IOFCON- 


NFRFMT LDA 


IOFMT 


CAX- 


* ■• 


SKG 


=5- 


BRU 


*+i*2- 


BRU 


ILGFMT 


BRU 


IOINT- 


BRU 


IOEXP- 


BRU 


IOFCON- 


BRU 


IOEXP- 


IOFGON SBRM 


RNDFI" 


LDA 


= -2- 


SUB 


IQD 


SKE 


= -2- 


SUB 


=1- 


ADD 


IOW- 


SKN 


IODEXP- 


SUB 


IODEXP- 


LDB 


SIGN- " 


SKB 


= -!-" 


BRU 


*+2- 


ADD 


= 1- 


SKA 


=40000000B 


BRU 


FLDSHT 


SKG 


=0- 


BRU 


FC0N2- 


SBRM 


SPC OUT- 


FC0N2 LDA 


SIGN- " 


SKE 


=0- ' 


SBRM 


CHROUT- 


LDA 


= -1 


SKN 


IODEXP- 


SUB 


IODEXP- 


CAX- 




LDA 


=20B- 


SKN 


IODEXP- 


SBRM 


GETDGT- 


SBRM 


CHROUT- 


BRX 


*-2- 


LDA 


IOD- 


SKG 


=0-' 


BRU 


ISCEND 


LDA 


= 16B- 


SBRM 


GHROUT- 


LDA 


IODEXP" 


ADD 


= 1- 


CAX- 




SKG 


= -1- 


BRU 


FCON7- 


FC0N8 SKR 


I OD 


BRU 


*+2- 


BRU 


ISCEND- 


SBRM 


GETDGT- 



NOT FREE FORMAT- 



ERROR: ILLEGAL FORMA T- 



F CONVERSION- 
CALCULATE NUMBER OF SPACES TO OUTPUT- 



ERROR: SPECIFIED FIELD IS TOO SHORT- 



CALCULATE NO. OF DIGITS BEFORE DECIMAL PT-- 



AN INTEGER IS OUTPUT FOR IOD=0- 



CALCULATE NO. OF ZEROES AFTER DEC PT. 



OUTPUT DIGITS AFTER DECIMAL POINT- 





SBRM 


CHROUT 




BRU 


FC0N8- 


FC0N7 


LDA 


=20B 




SKR 


IOD- 




SBRM 


GHROUT 




BRX 


*-2- 




BRU 


FCON8- 


ISCEND 


LDA 


IOFMT 




SKG 


=3- 




BRU 


IE'1- 




LDX 


SPACES 




CLA- 






WCI 


UNPTR- 




BRX 


*-l- 


I El 


LDX 


A3 




SKN 


ERRFLG 




SBRR 


ISCS- ' 




BRU 


INTRPT 


IOEXP 


SBRM 


RNDEXP 




LDA 


IOW- 




SUB 


IOD- 




SKG 


=6-' 




BRU 


EXPSRT 




SUB 


= 7- 




SKG 


=0- 




BRU 


EXP2- 




SBRM 


SPCOUT 


EXP2 


LDA 


SIGN 




SBRM 


CHROUT 


EXP3 


SBRM 


GETDGT' 




SKE 


=20B 




BRU 


EXP6- 




CLA- 






SKE 


Al- 




BRU 


*+3- 




ADD 


=20B- 




BRU 


EXP6- 




LDA 


= 1- 




SKN 


IODEXP 




LDA 


= -1- 




ADM 


DEXP- 




BRU 


EXP3- 


EXP6 


SBRM 


CHROUT 




LDA 


= 16B * 




SBRM 


CHROUT' 


EXP4 


SKR 


IOD- 




BRU 


EXP5- 




LDA 


=A5B- 




SBRM 


CHROUT' 




LDA 


*15B 




SKN 


IODEXP- 




SUB 


=2B- 




SBRM 


CHROUT- 




LDA 


DEXP 



OUTPUT ZEROES AFTER DECIMAL PT.- 



ISC DONE- 



OUTPUT SPACES AFTER NO. FOR TYPES 4 & 5- 



EXPONENTIAL OUTPUT- 



ERROR: SPECIFIED FIELD IS TOO SHORT- 



OUTPUT SIGN- 
OUTPUT FIRST DIGIT- 
MAKES SURE 1ST DIGIT IS NON-ZERO- 



OUTPUT DECIMAL POINT- 



OUTPUT 'E'- 



OUTPUT EXPONENTS- 



EXP 5 



EXPSRT 



IOINT 



ASTOUT 



IL6FMT 



FLDSHT 



SPCOUT 



RSH 

DIV 

ADD 

CBX- 

SBRM 

CXA- 

ADD 

SBRM 

BRU 

SBRM 

SBRM 

BRU 

LDA 

SBRM 

LDA 

SUB 

STA 

SKG 

BRU 

BRU 

STA 

CLA- 

STA 

BRU 

LDP 

BRS 

STP 

STP 

CLA- 

STA 

BRU 

LDA 

CNA 
CAX- 
LDA' 
WCI 
BRX 
BRU 
LDA 
SBRM 
LDA 
STA 
BRU 
STA 
LDA 
SBRM 
LDA 
SKE 
BRU 
BRU 
INSERT 
ZRO 
CNA- 
STA 



23- 

= 10- 
=20B- 

CHROUT- 

=20B- 

CHROUT- 

ISCEND- 

6ETDGT 

CHROUT- 

EXP4- 

=2 

ERR 

IOW- 

= 7- 

IOD- 

*¥2- 

EXP2- 

OVDGTS- 

IOD- 

EXP2- 

Al 

51- 

Al- 

GETl- 

IOD- 

IOFCON- 

IOW 



OUTPUT DIGITS AFTER DECIMAL PT.- 



* ACTION TAKEN FOR FIELD TOO SHORT i 
REDUCE IOD IF POSSIBLE- 



INTEGER FORMAT- 



OUTPUT ASTERISKS FOR FIELD TOO SHORT ERR - 



= 12B- 
UNPTR- 
*-l- 
IE1- 
= 1 

ERR- 
=2- 

IOFMT- 
I OEXP- 
OVDGTS 
=4- 
ERR- 
OVFL- 
=0- " 
ASTOUT- 
FC0N2- 
SPACES BEFORE OR AFTER NUMBER 
FFL- 

SPACES- 



ACTION FOR ILLEGAL FORMAT- 



ACTION FOR FIELD TOO SHORT ERROR- 



CHROUT 



*£* *4^ *& ^^ *4r *A* 
ry% ^p *p> ^p ^p «^% 

ERR 



*|S *fi #1* ?J> 3|» ?J5 

ffiTDGT 



Sj? JyJ 5}C JfC 5JJ J{t 

OUTSET 

* 
* 
* 
* 



LDA 

SKG 

BRO 

SBRR 

LDX 

CLA 

WCI 

BRX 

SBRR 

OUTPUT 

ZRO 

SKN 

BRU 

MIN 

SBRR 

SKR 

BRU 

BRU 

WCI 

SBRR 

STORE 

ZRO 

STA 

LDA 

STA 

SBRR 

GET 

ZRO 

LDP 

LRSH 

XAB- 

ADD 

XAB- 

ADC 

STP 

LRSH 

ADD 

XMA 

LDB 

ETR 

LSH 

XMA 

STB 

SBRR 

DECIMAL 

ZRO 



OF THE NUMBER- 



IS THE NEGATIVE 
OVERFLOWING THE 



OF NUMBER 
FIELD- 



OF- 



LDP 
SKE 
BRU 
CLB- 



IOFMT- 

=3- 

*+2- 

SPCOUT- 
SPACES- 

UNPTR- 

SPC OUT- 
CHARACTERS 
FFL- 

OVDGTS OVDGTS 

*+3 DIGITS 

OVDGTS- 

CHROUT- 
IOW- 
*+2- 
IE1- 
UNPTR- 

CHROUT- 
ERROR NUMBER AND SET FLAG- 
FFL- 
ERR'NUM- 
= -1- 
ERRFLG- 

ERR- 
NEXT DECIMAL DIGIT CONVERSION' OF THE NUMBER IN A1*A2- 

FFL- 

Al- 
2- 

A2- 

Al- 1 

Ai- 

19- 

=2'0B- 

Al- 

A2- 

=1777777B- 

3 

Al- 

A2- 
GETDGT- 

NORMALI'ZATION OF Al *A2- 

OUTSX OUTSET MULTIPLIES THE NUMBER IN Al #A2 BY- 

TEN OR TENTH SUCCESSIVELY* UNTIL THE- 
BINARY EXPONENT IS LEG ZRO AND GTR- 
-4. THE DECIMAL EXPONENT OF THE NUMBER- 
IS OBTAINED- 

Al- • 

=0- 

OS1- 





STB 


DEXP- 




BRU 


CNVD1- 


0S1 


SKN 


Al- 




BRU 


0S2- 




BRS 


21- 




STP 


Ai- 


, ' 


STP 


GET1- 


0S2 - 


LSH 


39- 




LDX 


= -1- 




SKG 


=0 




LDX 


= 1- 




STX 


DEXP- 


* 


STX - 


I ODEXP- 




LDX 


=RLI09 ' * 


* 


SKA 


=40000000B- 




LDX 


=RLI08 


* 


STX 


NCONV- 




LDP 


Al- 




STE 






NOD 


48- 


ADJUST 


XXA- 






LSH 


3- 




RSH 


3- 




SKG 


=0- 




SKG 


= -'4 


* - 


BRU 
CNA 
XXA- 


ADJ1- 




LRSM 


1*2- 


GNVD1 


STP 


Al- 




LDA 


DEXP- 




SKN 


IODEXP- 




CNA- 






STA 


IODEXP- 




SBRR 


."OUTSET- 


ADJ1 


XXA- 




* 


STX 


RLI06- 




LDX 


NCONV- 




SBRM 


DPMRIO* 




MIN 


DEXP- 


- 


BRU 


ADJUST- 


****** 


FLOATING* MULTIPLY W 


DPMRIO 


ZRO 


FFL 


* 






* 






* 






* 




/ 


* 








STA 


RLI07- 




BAC- 






RGY 


2- 


i 


MUL 


0*2- 




STA 


RLIOl- 




LDA 


1*2- 



EXAMINE SIGN OF BINARY EXPONENT- 

ADDRESS OF FLOATING 1/10- 
ADDRESS OF FLOATING 10- 



BINfcRY EXPONENT IS NOT LEQ AND GTR -4- 
CONVERSION DONE- 



MULTIPLY BY 10 OR 1/10- 



THIS IS A MULTIPLY ROUTINE FOR 48 BIT- 
* MANTISSA WITH THE EXPONENT IN A 3RD- 
WORD. THE MLTIER IS IN A*B WITH THE- 
EXPONENT IN RLI06. THE MLTCND IS IN- 
3*W0RDS POINTED TO BY X. THE PRODUCT- 
IS RETURNED IN A*B*X- ' 





LRSH 


2- 




MUL 


RLI07- 




ADD 


RLIOl- 




MUL 


=2 




STB 


RLIOl- 




XMA 


RLI07- 




MUL 


0>2- '■■ 




XAB- 






ADD 


RLIOl- 




XAB- 




* 


ADC 


RLI07- 




STA 


Al- 




LDA 


2/2- 




ADD 


RLI06- 




CAX- 






LDA 


Al- 




NOD 


48- 




SBRR 


DPMRIO- 


$ $$$$;$: 


ROUND 


NUMBER FOR OUTPUT- 


RNDEXP 


ZRO 


RNDX 




LDA 


= -1- 




BRU 


ROUND- 


RNDFI 


ZRO 


RNDX 




CLA- 




ROUND 


STA' 


RNDFLG- 




SBRM 


OUTSET' 




LDA 


=-2- 




SUB 


IOD- 




SKN 


RNDFLG- 




SUB 


IODEXP- 




CAX- 






SBRM 


GETDGT 




BRX 


*-l- 




SKG 


=24B 




BRU 


RND6- 




LDA 


IODEXP 




SKN 


RNDFLG- 




C LA- 






SUB 


IOD- 




SKE 


=0- 




BRU 


RND2- 




LDP 


ONE- 


RND1 


FAD 


GET1 - 




STP 


Al- 


RNDONE 


SBRM 


OUTSET- 




SBRR 


RNDEXP- 


RND6 


LDP 


GET1- 


* 


BRU 


RNDONE-1- 


RND2 


SKG 


=0- 




BRU 


RND3- 




CNA- 






CAX- 






LDP" 


ONE- 




FMP 


TEN- 



ROUND ROUTINE FOR EXP. FORM- 
ROUND ROUTINE FOR F-CONV. AND INTEGER- 
CALCULATE WHICH DIGIT TO EXAMINE- 



GET THE DIGIT TO BE EXAMINED- 
DETERMINE IF ROUNDING IS NECESSARY- 
CALCULATE HOW MUCH TO ADD TO NUMBER- 



RND3 



BRX 

BRU 

CAX- 

LDP 

FMP 

BRX 

BRU 



RND'1- 

ONE- 
TENTH- 
*-l- 
RNDl- 



*- 

♦STRING TO INTERNAL CONVERSION- 

*- 



$SICN 



SICS 



RLI31 



RLI16 



RLI20 



SBRM 

LDA 

SBRM 

LDP 

STP 

LDA 

LDB 

SBRM 

LDX 

SBRM 

BRU 

MIN 

LDA 

SBRM 

LDA 

SUB 

ADM 

LDP 

LDX 

BRS 

ZRO 

STX 

SBRM 

CLA- 

STA 

SKE 

BRU 

CLAB- 

STA 

STP 

STA 

STA 

LDA 

STA 

STA 

STA 

STA 

SBRM 

GCI 

BRU 

SKG 

BRU 

SBRM 

BRU 



SETPTR- 

UE- 

SU'SR- 

0*2- 

XWR'3- 

=XWR*3- 

=UNPTR- 

RDSU- 

A3- 

SICS- 

*+2- 

UBRSRT- 

UE- 

SU'SR- 

UNPTR- 

XWR4X3- 

0*2- ' 

Al- 

A3- 

111- 

IOLINK- 

A3-" " 

6ETFMT- 

ERRFLG- 
IOW- " 
RLI'30- 

RLI02- 

Al- 

RLI07- 

DGTGNT- 

= -1- 

RLI04- 

RLI05- 

EXPFLG- 

DFLG- " 

CHRSET- 

UNPTR 

RLI18- 

=0- 

RLI 1 6- 

CHRGHK- 

RLI21 



GET ONE CHARACTER FROM STRING- 



CHARACTER IS • + •- 



BR* 


RLI5 


BRU 


RLI2 


BRU 


RLI6 


BRU 


RLI18 


CAB 




MIN 


DGTCNT 


LDA 


DGTCNT : 


SKG 


= 11- 


BRU 


*+2- 


BRU 


RLI21- 


CBA- 




SKN 


EXPFLG 


BRU 


RLI10- 


SKN 


DFLG- 


MIN 


RLI02- 


SBRM 


RLITEN 


RLI21 GCI 


UNPTR-' 


BRU 


RLI18- 


BRU 


RLI20- 


E&LI30 LDA 


UNPTR- 


ADD 


IQVh 


SKG 


UNPTR1 


BRU 


*+2- 


STA 


UNPTR1 


CLA- 




WCI 


UNPTR- 


LDA 


IOFMT- 


SKG 


= 1- 


BRU 


RLI31- 


LDP 


UNPTR 


* 




* 




* 




* 




STP 


GET1- 


GCI 


GET1- 


BRU 


*+4-' \ 


SKE 


=T6B- 


BRU 


*-3-' 


BRU 


RLI31- 


LDX 


IOFMT- 


BRU 


*-\*2- 


* BRU 


RLI34- 


BRU 


RLI36- 


* BRU 


RLI34- 


BRU 


RLI36- 


* LDA 


= 1- 


SBRM 


ERR- 


BRU 


RLI34- 


RLI36 LDA 


UNPTR1 


STA 


GET2- 


STA 


GET3- 


STA 


GET4- 


SUB 


IOD- 



• — f - 

»•."»■- 

TERMINATING CHARACTER- 
CHARACTER IS A DIGIT- 



THE STRING OF CHARACTERS IS SEARCHED- 
*FOR A DECIMAL POINT OR 'E*. IF ONE IS- 
FOUND * THE NUMBER IS TAKEN AS IT IS-- 
IF NOT* A DECIMAL POINT IS INSERTED- ' 
WHERE IT IS SPECIFIED BY THE FORMAT- 



F FORMAT- 





SUB 


= 1- 




STA 


GET1- 




STA 


GET5- 




6CI 


GET1- 




BRU 


*+3- 




WCI 


GET3- 




BRU 


*-3- 




LDA 


GET5- 




STA 


UNPTRl 




LDA 


= 16B- 




WCI 


UNPTR- 




GCI 


GET3- 




BRU 


*+3- 




WCI 


UNPTR- 




BRO 


*-3- 




BRU 


RLI31- 


RLI34 


LDP 


UNPTR' 




STP 


GET2- 




GCI 


GET2- 




BRU 


NOE ' 




SHE 


=45B- 




BRU 


*-3 " 




BRU 


RLI31- 


NOE 


LDA 


= 5- 




SBRM 


ERR- 


* 
RLI5 


BRU 


RLI36 


SKN 


EXPFLG 




BRU 


*+3- 




STB 


RLI04- 




BRU 


RLI21- 




STB 


RLI05- 




BRU 


RLI21- 


RLI2 


STB 


DFLG 




BRU 


RLI21- 


RLI6 


STB 


EXPFLG 




STB 


DGTCNT 


* 


BRU 


RLI16- 


RLI10 


SUB 


=20B- 




XMA 


RLI07- 




MUL 


= 10- ' 




LSH 


23 




ADM 


RLI07- 




BRU 


RLI21- 


RLI18 


AXC- 






SKE 


IOW- 




BRU 


*+2- 




STX 


A3- 




LDA 


DFLG- 




ADD 


EXPFLG 




SKG 


= -2- 




BRU 


RLI22 




LDA 


RLI07- 




SKN 


RLI05- 



E FORMAT- 



6*0 'E' NOR DECIMAL POINT FOR E FORMAT* ■ 
NUMBER IS TREATED AS IN F FORMAT- 



CONTENTS OF B IS AFTER , CHRCHK t - 





CNA- 






SUB 


RLI02- 




STA 


RLI02- 




LDX 


=TENTH- 




SKN 


RLI02- 


- 


LDX 


=TEN- 




STX 


FFX- 




SKN 


RLI02- 


* 


CNA- 
CAX- 






SKE 


=0- 




BRU 


*+3- 




LDP 


Ai- - 




BRU 


RLI12- 




LDP 


Al- 




FMP* 


FFX 


* 






* 




4 




BRX 


*-l- 


8LI12 


SKN 


RLI04- 




BRS 


21- 


RLI17 


STP 


Al- 




CLA- 






SKE 


IOW- 




BRU 


RLI19- 




LDA 


DFLG- 




ADD 


EXPFL6- 




SKG 


= -2- " 




BRU 


*¥2- 




MIN* 


SICS- 


RLI19 


LDP 


Ai- • 




LDX 


A3- 




SKN 


ERRFLG- 


- 


SBRR 


SICS- " 




BRU 


INTRPT- 


RLI22 


LDB 


A2 




SKD 


=24- 




BRU 


ERR'3- 




LDP 


Al- 




BRS 


50- 




ROV- 






SKB" 


=40000000B- 




ADD 


= 1- 




OVT- 






BRU 


ERR3- 




SKN 


RLI04- 




GNA 


_ 




BRU 


RLI17- 


ERR3 


LDA 


=3 . 




SBRM 


ERR- 




LDA 


=37777777B- 




CLB- 






STP 


Al- 




BRU 


RLI 1 7- 



THE NUMBER WAS ENTERED AS AN INTEGER- 
AND IS NOW ADJUSTED BY MULTIPLYING- 
DETERMINED BY RLI02 AND RLI07- 



NUMBER IS INTEGER- 



ERROR: INTEGER INPUT IS TOO LARGE- 



CHRSET 



CHRCHK 
* 

* 
* 
* 
* 
* 



NSGT 



NDGT1 



NDGT2 



RLITEN 

* 

* 



RESET CHARACTER TABLE- 

ZRO FFL- 

STA PLUS- 

LDA = 16B- 

STA PERIOD- 

LDA =45B- 

STA EEE- 

LDA =-1- 

STA ENDCHR- 

LDA = 15B- 

STA MINUS" 

LDA =13B- 

XMA PLUS- 

SBRR CHRSET- 

ftHECK AND CLASSIFY CHARACTER- 

ZRO FFL # CHRCHK CHECKS THE IDENTITY OF THE- 

CHARACTER IN THE A REGISTER AND RETURNS- 
CONTROL TO THE 1ST THRO 6TH LOCATIONS- 
AFTER THE CALLING COMMAND* DEPENDING- 
WHETHER THE CHARACTER IS » + *, •-•,». S- 
* 'EXTERMINATING CHARACTER OR DIGIT*- ' 
RESPECTIVELY. B REGISTER IS CLEARED- 

= -4- 

= -1- 

=3"lB- 

= 17B- 

NDGT- • ' 

= 1- 

ND'GTl- 

ENDCHR*2- 

*-l- 

ENDCHR>2- 

PLUS- 

*+2-' 

MIN'USf 

MlNUS- 

*+2- 

PLUS- 

EEE-' 

NDGT2- 

CHRSET- 

EEE- 

PERIOD- 

AB*XA-' 

= 4- 

CHRCHK- 

CHRCHK- 
PLY BY 10 AND ADD NEW DIGIT- 

RLITEX RLITEN MULTIPLIES THE NUMBER IN- 

A1#A2 BY TEN AND ADD TO IT THE- 
DIGIT IN A- 
=20B- 
Al- 



LDX 

LDB 

SKG 

SKG 

BRU 

LDX 

BRU 

SKE 

BRX 

STB 

SKN 

BRU 

STB 

SKN 

BRU 

STB 

SKN„ 

BRU 

SBRM 

STB 

STB 

COPY 

ADD 

ADM* 

BAC 

SBRR 

MULTI 

ZRO 



SUB 
XMA 





LDB 


A2- 




FMP 


TEN- 




XMA 


Al- . 




STB 


A2- 


^ 


BRS 


51- 




FAD 


Al- 




STP 


Al- 




SBRR 


RLITEN- 


****** 


UNPACK 


FORMAT SPECIFICATION- 


0ETFMT 


ZRO 


FFL- 




COPY 


XB*A- 




LSH 


3-' 




STA 


IOFMT- 




CLA 






LSH 


6- 




STA 


IOD- 




CLA- 






LSH" 


6- 




STA 


IOW- 




CLA- 






LSH 


1- 




STA 


OVFL- 




SBRR 


GETFMT- 


*- 






*' FLOATING OUTPUT SYSTEM SUBROUTINE 


*- 






SFFO 


LDA 


UX- 




ETR 


=377B- 




SKG 


=0- 




LDA 


COUT- 




STA 


IOFILE- 




LDP 


UA- 




LDX 


UX- 




SBRM 


iscs- 




LDP 


UNPTR- 




LDX 


IOFILE- 




BRS 


35- 




BRS 


111- 


*- 






* FLOATING INPUT SYSTEM SUBROUTINE- 


*- 






SFFI 


SBRM 


SETPTR- 




SBRM 


CHRSET- 




LDB 


UX- 




LSH 


33- 




RSH 


18- 




STA 


FIOW- 




LSH 


25- 




RSH 


40- 




STB 


IOFILE- 




SKE 


FIOW- 




BRU 


IOIN1- 


I0IN2 


CIO 


IOFILE INPU 




SKG 


=0- 



IS IN FREE FORMAT- 





BRU 


I0IN2- 




SKE 


=135B- 




BRU 


I0IN3+1- 




CIO 


IOFILE- 


* 


BRU 


I0IN2-' 


IQIN3 


CIO 


IOFILE 




WCI 


UNPTR- 




SBRM 


CHRCHK- 




BRU 


I0IN3- 


* 


BRU 


I0IN3- 




BRU 


I0IN3- 




BRU 


I0IN3- 




BRU 


I0IN4- 


* 


BRU 


I0IN3- 


I0IN4 


SBRM 


SICS- 




BRS 


111- 




MIN 


UBRSRT- 




BRS 


111- 


I0IN1 


LDA 


FIOW 




CNA 
CAX- 




I0IN5 


CIO 


IOFILE- 




SKE 


=135B- 


* 


BRU 


IOIN6- 




CIO 


IOFILE- 




St X 


A3- 




ADM 


A3- 




CNA- 






CAX- 






WCI 


UNPTR- 




BRX 


*-l- 




LDX 


A3- 




BRU 


*+2- 


I0IN6 


WCI 


UNPTR- 




BRX 


IOIN5- 




CLA- 






WCI" 


UNPTR- 




BRU 


I0IN4- 


sic sic sic sic sic sic 


INITIALIZE UNPTR 


SETPTR 


ZRO 


FFL- 




LDA 


XWR4X3- 




STA 


UNPTR- 




STA 


UNPTR1- 




SBRR 


SETPTR- 


***** 


GENERATE INTERRU 


INTRPT 


STP 


Ai- 




LDA 


=200B- 




SBRM 


SUSR- 




LDA 


ERRNUM- 




STA 


0*2- 




LDA 


=5- 




BRS 


79- 




LDP 


Al- 




LDX 


A3- 



INPUT NUMBER OF CHARACTRS SPECIFIED- 
BY IOW- 



RLI08 

* 

RL€09 



BRS 
*- 

♦CONSTANTS- 
A- 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



TEN 

TENTH 

ONE 

* 
SUSR 



111 



24000000B- 

00000000B- 

000 4B- 

31463146B- 

31463146B- 

-003B- 

24000000B- 

00000004B- 

31463146B- 

31463775B- 

20000000B- 

0000000 IB- 



SET UP WINDOW TO USER- 

ZRO SUSR15 STA SUSR25 RCY 1 1 5 ETR =75 MUL =35 CBX- 
LDP CMRL1* LCY 0*25 LRSH 125 STA SUSR3- 

BRS 435 LCY 125 ETR =77770000B5 MRG SUSR35 RCY 125 BRS 
LDA SUSR25 ETR =3777B5 ADD =20000B5 CAX5 SBRR SUSR- 



44- 



SRSU 
SRSP 



* 

RDSU 

RDSU1 

* * 

WRSU 

WRSU1 



SET UP WINDOW FOR STRING POINTER- 

ZRO SRSU15 CAX5 LDA 1*25 SUB 0*25 STA SRSU21- 
NOP SRSU15 LDA 0,2 5 MUL =12525253B5 AXC- 
LCY 25 STA SRSU205CXA5 SBRM SUSR5 MUL =35 LSH 23- 
ADD SRSU20 5 STA SRSU20 5 SBRR SRSU- 

READ STRING FROM USER- 

ZRO SRSU45 STB SRSU35 SBRM SRSU5 XMA SRSU215 ADM SRSU21 
SKG =755 BRU *+2*S HLT5 LDX SRSU35 LDA 0*25 STA 1*2- 
GCI SRSU205 SBRR RDSU5 WCI 0*25 BRU RDSUl- 

WRITE STRING TO USER- 

ZRO SRSU45 STA SRSU35 CBX- 

SBRM SRSP5 STA SRSU215 LD* SRSU3- 

GCI 0*25 SBRR WRSU5 WCI SRSU205 BRU WRSU1- 



END- 



